home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1985 June
/
Ahoy_Magazine_85-06_1985_Double_L.d64
/
qp epson_gemini
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
4KB
|
127 lines
5 print"[147] initializing..."
10 gosub540
20 poke53280,0:poke53281,0:poke646,15:print"[147] quad-print"
30 dimb$(4):print" (c) 1984 by m. beutjer"
40 ifb=0thenb=1:goto70
50 print"[147] pic 1 (upper left ) : "b$(1):print" pic 2 (upper right) : "b$(2)
60 print" pic 3 (lower left ) : "b$(3):print" pic 4 (lower right) : "b$(4)
70 print" f1 = display 1 [146] f2 = load 1 "
80 print" f3 = display 2 [146] f4 = load 2 "
90 print" f5 = display 3 [146] f6 = load 3 "
100 print" f7 = display 4 [146] f8 = load 4 "
110 print" \ = dump pos [146] _ = dump neg "
120 print" * = quick view screens "
130 print" @ = swap screens "
140 geta$:ifa$<>""then140
150 geta$:ifa$=""then150
160 a=asc(a$)
170 ifa=92thensys49209:goto40
180 ifa=95thensys49205:goto40
190 ifa=42thena=1:gosub520:sys49490:sys49188:goto280
200 ifa=64then310
210 ifa<133then150
220 ifa>140then150
230 a=a-132:ifa>4thengosub440:goto40
240 gosub520:sys49490:sys49188
250 geta$:ifa$<>""then250
260 geta$:ifa$=""then260
270 sys49188:goto40
280 geta$:a=asc(a$+chr$(0)):ifa=32thensys49188:goto40
290 ifa<133ora>136then280
300 a=a-132:gosub520:sys49490:goto280
310 print"enter the numbers of the screens"
320 print"you want to swap (1-4)."
330 input"1st screen : ";a
340 input"2nd screen : ";b
350 ifa<1ora>4orb<1orb>4then310
360 gosub520:sys49490
370 poke49153,16*(2+a*2):poke49152,16*(2+b*2)
380 poke49155,224+(b-1)*4:poke49154,224+(a-1)*4
390 sys49490
400 poke49152,32:poke49153,16*(2+b*2):poke49155,224+(a-1)*4:poke49154,4
410 sys49490
420 a$=b$(a):b$(a)=b$(b):b$(b)=a$
430 goto40
440 rem get filename and load it.
450 a=a-4:print" enter filename of pic"a": ";:inputa$
460 iflen(a$)>16then450
470 b$(a)=a$
480 poke49156,len(a$):poke49152,32:poke49153,16*(2+a*2)
500 forx=1tolen(a$):poke49156+x,asc(mid$(a$,x,1)):next
510 sys49454:poke49155,224+(a-1)*4:poke49154,28:sys49490:return
520 poke49153,32:poke49152,16*(2+a*2):poke49154,224+(a-1)*4:poke49155,4:return
530 rem poke in ml routine
540 i=49152
550 reada:ifa=256then565
560 sum=sum+a:poke i,a:i=i+1:goto550
565 ifsum<>61145thenprint"error in data statements.":end:rem sum=61166 for 10x
566 return
570 data 0,0,0,0,0,60,162,0
580 data 32,126,197,169,76,44,169,96
590 data 133,138,169,44,133,0,0,0
600 data 0,0,0,0,0,0,0,0
610 data 0,0,0,0,173,17,208,73
620 data 32,141,17,208,173,24,208,73
630 data 8,141,24,208,96,169,255,208
640 data 2,169,0,141,33,192,169,4
650 data 162,4,160,0,32,186,255,169
660 data 0,32,189,255,32,192,255,162
670 data 4,32,201,255,169,0,133,251
680 data 169,64,133,252,169,0,141,32
690 data 192,169,96,141,31,192,162,210
700 data 32,176,193,32,210,255,169,25
710 data 141,29,192,32,163,192,169,0
720 data 133,251,169,128,133,252,169,0
730 data 141,32,192,169,160,141,31,192
740 data 169,25,141,29,192,32,163,192
750 data 169,27,32,210,255,169,64,32
760 data 210,255,169,4,32,195,255,32
770 data 204,255,96,162,200,32,176,193
780 data 32,227,192,165,251,72,165,252
790 data 72,173,32,192,133,251,173,31
800 data 192,133,252,32,227,192,165,251
810 data 141,32,192,165,252,141,31,192
820 data 104,133,252,104,133,251,169,13
830 data 32,210,255,32,225,255,208,5
840 data 104,104,76,144,192,206,29,192
850 data 208,193,96,169,40,141,30,192
860 data 160,0,162,0,120,169,46,133
870 data 1,177,251,141,34,192,169,47
880 data 133,1,88,14,34,192,62,21
890 data 192,232,224,8,208,245,200,192
900 data 8,208,223,24,165,251,105,8
910 data 133,251,165,252,105,0,133,252
920 data 162,0,189,21,192,77,33,192
930 data 32,210,255,232,224,8,208,242
940 data 206,30,192,208,187,96,169,1
950 data 162,8,160,0,32,186,255,173
960 data 4,192,162,5,160,192,32,189
970 data 255,169,0,170,160,28,32,213
980 data 255,169,1,32,195,255,32,204
990 data 255,96,160,0,132,251,174,1
1000 data 192,134,252,132,253,174,0,192
1010 data 134,254,142,34,192,238,34,192
1020 data 200,192,32,208,248,160,0,120
1030 data 169,46,133,1,177,253,145,251
1040 data 169,47,133,1,88,200,208,239
1050 data 230,252,230,254,165,254,205,34
1060 data 192,208,228,173,3,192,133,252
1070 data 173,2,192,133,254,162,4,120
1080 data 169,40,133,1,177,253,145,251
1090 data 200,208,249,230,252,230,254,202
1100 data 208,242,169,47,133,1,88,96
1110 data 142,188,193,142,195,193,160,0
1120 data 162,0,232,189,200,193,32,210
1130 data 255,138,217,200,193,48,243,96
1135 rem
1136 rem
1137 rem printer control codes
1138 rem
1139 rem
1140 rem * epson printer module *
1150 data 5,27,42,6,128,2,0,0,0,0
1160 data 3,27,65,8,0,0,0,256
1170 rem * gemini printer module *
1180 data 4,27,76,128,2,0,0,0,0,0
1190 data 3,27,51,16,0,0,0,256